function [] = print1(fileID,input,dim1)

    for i=1:dim1
        fprintf(fileID, '%e ',input(i));
    end
    fclose(fileID);

end

